home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / chibacity / gbbdisk.arj / GENETIC / 1000.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-07-11  |  729 b   |  32 lines
  1. program gen_1000; {Generate batch file to create 1000 hosts and infect them}
  2.  
  3. var
  4.   s,n:string;
  5.   bf:text;
  6.   j:word;
  7.  
  8. begin
  9.   assign(bf,'gen1000.bat');
  10.   rewrite(bf);
  11.   writeln(bf,'md 1000');
  12.   writeln(bf,'cd 1000');
  13.   for j:=1 to 1000 do
  14.     begin
  15.       str(j,n);
  16.       while length(n)<5 do n:='0'+n;
  17.       writeln(bf,'copy ..\test.com ',n,'.com');
  18.     end;
  19.   writeln(bf,'md inf');
  20.   writeln(bf,'..\manyhoop');
  21.   for j:=2 to 1000 do
  22.     begin
  23.       str(j-1,n);
  24.       while length(n)<5 do n:='0'+n;
  25.       writeln(bf,'..\manyhoop');
  26.       writeln(bf,'copy ',n,'.com inf');
  27.       writeln(bf,'del ',n,'.com');
  28.     end;
  29.   writeln(bf,'copy 1000.com inf');
  30.   writeln(bf,'del 1000.com');
  31.   close(bf);
  32. end.